*> 100 Cool Things - http://cobolrocks.codeplex.com/
*> Copyright (c) 2009
*> by Emerson Lopes (emersonlopes@gmail.com)
*>
*> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
*> documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
*> the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
*> to permit persons to whom the Software is furnished to do so, subject to the following conditions:
*>
*> The above copyright notice and this permission notice shall be included in all copies or substantial portions 
*> of the Software.
*>
*> THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
*> TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
*> THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
*> CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
*> DEALINGS IN THE SOFTWARE.

CLASS-ID. Product AS "AFP.Product".

    environment division.
        configuration section.
            repository.
                class SystemString as "System.String".
                
 *> Instance's data and methods
    object.
        data division.
            working-storage section.
            copy "types.book".
            
            01 productId          type SystemInt32                     property.
            01 description        usage object reference SystemString  property.
            01 price              type SystemDouble                    property.
            
        procedure division.
             *> ...
             
             method-id. GetProduct  as "GetProduct".
             
             data division.
                linkage section.
                    01 productId  type SystemInt32.
             
             procedure division using by value productId.
             
             *>  Do some DB access here and return a product based on its ID
             *>  ...
             *>  In our example we will return a fake product.    
                 
                 set productId   of self        to  productId
                 set description of self        to  "Some expensive product"
                 set price       of self        to  100.00.
            
            end method GetProduct.     
    end object.
END CLASS Product.